program C2_1;
var a:array[1..20] of integer;
    b:integer;
    i,count:integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(30);
write('enter a number: ');
readln(b);
count:=0;
for i:=1 to 20 do if b=a[i] then inc(count);
if count=0 then writeln('the number you entered was not found in the array')
else writeln('count=',count:3);
end.
